O6001(FINISH OUTSIDE DIAMETER)
(ABSOLUTE MACRO)
(WORKS)

(FORMAT G65/G66 TDREFS)
(T = #20 - TOOL DIAMETER)
(D = #7 - PART DIAMETER)
(R = #18 - R PLANE)
(E = #8 - END OF DIAMETER IN Z)
(F = #9 - FEEDRATE)
(S = #19 - # OF SPRING PASSES)
(***********************************)

IF[#19GT3.]THEN#19=3.
#104=#5001
#105=#5002
#115=[#105+.1]+[[#20/2]+[#7/2]]
#149=#19
#155=0
#105=#105+[[#7/2]+[#20/2]]
#155=#155+[[#7/2]+[#20/2]]
G0G90X[#104-.1]Y#115
Z[#8+.1]
G1Z#8F#9
G41Y#105
X#104
WHILE[#149GE0]DO1
#149=#149-1.
G02J-#155
END1
G03X[#104+.1]Y[#105+.1]J.1F[#9/2]
G0G90Z#18
G40X#104Y#105
M99